perm filename N4[MUS,LCS] blob sn#154755 filedate 1975-04-11 generic text, type T, neo UTF8
03800	SRATE←25000;MAG←512/SRATE;SPEED←5;NCHNS←4;
04000	
04200	COMPILE; INSTRUMENT SIMP;
04400	ZOSCIL(P4,MAG*P3,P5);OUTA←OUTA+U1;
04500	OUTB←OUTB+U1;
04510	OUTC←OUTC+U1;
04520	OUTD←OUTD+U1;
04600	END; FINISH;
04800	
05000	PLAY;SIMP 0 .5 A 2000 F1;FINISH;PRINT(LSBUF);